ggplot(mpg, aes(reorder(manufacturer, hwy), hwy)) + geom_boxplot(colour = "grey70") + geom_point(position = position_jitter(h = 0, w = 0.2), pch = 1) + theme(axis.text.x = element_text(angle = 45, hjust = 1)) + labs(x = "Manufacturer", y = "Highway MPG")